      LOGICAL DOGGA
      COMMON /DFTMHESL/ DOGGA
      COMMON /DFTMHESI/ IATOM, LURDER, LUZET
